home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / lsestuff / bittest.e < prev    next >
Text File  |  1999-11-29  |  607b  |  30 lines
  1. MODULE '*bits'
  2.  
  3. PROC main()
  4.    DEF a:PTR TO LONG, b, c
  5.    a:=FastNew(500)
  6.    /*
  7.    FOR b:=0 TO 99
  8.       WriteF('bit \d = \d\n', b, bigbitget(a, b))
  9.       bigbitset(a, b)
  10.       WriteF('bit \d after set = \d\n', b, bigbitget(a, b))
  11.       bigbitclr(a, b)
  12.       WriteF('bit \d after clr = \d\n', b, bigbitget(a, b))
  13.    ENDFOR
  14.    */
  15.    SystemTagList('date', NIL)
  16.    FOR b:=0 TO 100000
  17.       FOR c:=0 TO 31
  18.          bitset(10, c)
  19.       ENDFOR
  20.    ENDFOR
  21.    SystemTagList('date', NIL)
  22.    FOR b:=0 TO 100000
  23.       FOR c:=0 TO 31
  24.          bigbitset(a, c)
  25.       ENDFOR
  26.    ENDFOR
  27.    SystemTagList('date', NIL)
  28. ENDPROC
  29.  
  30.